Sub inicio()

    Dim p As Persona
    Dim pr As Provincia
    
    pr.codigo = 8
    pr.nombre = "Barcelona"

    p.nombre = "Juan Antonio"
    p.direccion = "C/Pez, 23"
    p.poblacion = "Bada del Valls"
    p.prov = pr
    p.dni = "12345678"
    p.edad = 35
    
    Debug.Print p.nombre & " de " & p.prov.nombre
End Sub
